BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / B-C / BenchMarks.cpt / Sieve.p < prev next >
MacBinary | 1988-12-31 | 2.4 KB | [TEXT/PJMM]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Sieve.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Dec 31 15:44:07 1988, modified Sat Dec 31 15:44:07 1988, creator Think Pascal, type ASCII, 1155 bytes "Sieve.p" , at 0x503 1011 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 53 69 65 76 65 2e | 70 00 00 00 00 00 00 00 |..Sieve.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 04 83 00 | 00 03 f3 9f e2 ec 97 9f |........|........|
|00000060| e2 ec 97 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 49 77 00 00 |........|....Iw..|
|00000080| 75 6e 69 74 20 53 69 65 | 76 65 3b 0d 0d 69 6e 74 |unit Sie|ve;..int|
|00000090| 65 72 66 61 63 65 0d 0d | 09 66 75 6e 63 74 69 6f |erface..|.functio|
|000000a0| 6e 20 64 6f 53 69 65 76 | 65 3a 20 4c 6f 6e 67 69 |n doSiev|e: Longi|
|000000b0| 6e 74 3b 0d 0d 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |nt;..imp|lementat|
|000000c0| 69 6f 6e 0d 0d 09 76 61 | 72 0d 09 09 65 6c 61 70 |ion...va|r...elap|
|000000d0| 73 65 64 54 69 6d 65 3a | 20 4c 6f 6e 67 69 6e 74 |sedTime:| Longint|
|000000e0| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 64 6f 53 |;...func|tion doS|
|000000f0| 69 65 76 65 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 0d |ieve: Lo|ngint;..|
|00000100| 7b 24 49 46 43 20 55 4e | 44 45 46 49 4e 45 44 20 |{$IFC UN|DEFINED |
|00000110| 54 48 49 4e 4b 5f 50 41 | 53 43 41 4c 7d 0d 09 09 |THINK_PA|SCAL}...|
|00000120| 66 75 6e 63 74 69 6f 6e | 20 54 69 63 6b 43 6f 75 |function| TickCou|
|00000130| 6e 74 3a 20 4c 4f 4e 47 | 49 4e 54 3b 0d 09 09 69 |nt: LONG|INT;...i|
|00000140| 6e 6c 69 6e 65 0d 09 09 | 09 24 41 39 37 35 3b 0d |nline...|.$A975;.|
|00000150| 0d 09 09 70 72 6f 63 65 | 64 75 72 65 20 44 65 62 |...proce|dure Deb|
|00000160| 75 67 67 65 72 3b 0d 09 | 09 69 6e 6c 69 6e 65 0d |ugger;..|.inline.|
|00000170| 09 09 09 24 61 39 66 66 | 3b 0d 0d 09 09 70 72 6f |...$a9ff|;....pro|
|00000180| 63 65 64 75 72 65 20 53 | 68 6f 77 54 65 78 74 3b |cedure S|howText;|
|00000190| 0d 09 09 62 65 67 69 6e | 0d 09 09 65 6e 64 3b 0d |...begin|...end;.|
|000001a0| 7b 24 45 4e 44 43 7d 0d | 0d 09 09 70 72 6f 63 65 |{$ENDC}.|...proce|
|000001b0| 64 75 72 65 20 70 72 69 | 6d 65 3b 0d 09 09 09 63 |dure pri|me;....c|
|000001c0| 6f 6e 73 74 0d 09 09 09 | 09 73 69 7a 65 20 3d 20 |onst....|.size = |
|000001d0| 38 31 39 30 3b 0d 09 09 | 09 09 69 74 65 72 61 74 |8190;...|..iterat|
|000001e0| 69 6f 6e 73 20 3d 20 31 | 30 3b 0d 09 09 09 76 61 |ions = 1|0;....va|
|000001f0| 72 0d 09 09 09 09 66 6c | 61 67 73 3a 20 61 72 72 |r.....fl|ags: arr|
|00000200| 61 79 5b 30 2e 2e 73 69 | 7a 65 5d 20 6f 66 20 62 |ay[0..si|ze] of b|
|00000210| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 09 69 2c 20 70 |oolean;.|....i, p|
|00000220| 72 69 6d 65 2c 20 6b 2c | 20 63 6f 75 6e 74 2c 20 |rime, k,| count, |
|00000230| 69 74 65 72 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |iter: in|teger;..|
|00000240| 09 62 65 67 69 6e 0d 09 | 09 09 66 6f 72 20 69 74 |.begin..|..for it|
|00000250| 65 72 20 3a 3d 20 31 20 | 74 6f 20 69 74 65 72 61 |er := 1 |to itera|
|00000260| 74 69 6f 6e 73 20 64 6f | 09 09 7b 64 6f 20 70 72 |tions do|..{do pr|
|00000270| 6f 67 72 61 6d 20 31 30 | 20 74 69 6d 65 73 7d 0d |ogram 10| times}.|
|00000280| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 63 |....begi|n......c|
|00000290| 6f 75 6e 74 20 3a 3d 20 | 30 3b 09 09 09 09 09 09 |ount := |0;......|
|000002a0| 7b 70 72 69 6d 65 20 63 | 6f 75 6e 74 65 72 7d 0d |{prime c|ounter}.|
|000002b0| 09 09 09 09 09 66 6f 72 | 20 69 20 3a 3d 20 30 20 |.....for| i := 0 |
|000002c0| 74 6f 20 73 69 7a 65 20 | 64 6f 0d 09 09 09 09 09 |to size |do......|
|000002d0| 09 66 6c 61 67 73 5b 69 | 5d 20 3a 3d 20 74 72 75 |.flags[i|] := tru|
|000002e0| 65 3b 09 09 09 09 7b 73 | 65 74 20 66 6c 61 67 73 |e;....{s|et flags|
|000002f0| 20 61 6c 6c 20 74 72 75 | 65 7d 0d 09 09 09 09 09 | all tru|e}......|
|00000300| 66 6f 72 20 69 20 3a 3d | 20 30 20 74 6f 20 73 69 |for i :=| 0 to si|
|00000310| 7a 65 20 64 6f 0d 09 09 | 09 09 09 09 69 66 20 66 |ze do...|....if f|
|00000320| 6c 61 67 73 5b 69 5d 20 | 74 68 65 6e 0d 09 09 09 |lags[i] |then....|
|00000330| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00000340| 09 09 70 72 69 6d 65 20 | 3a 3d 20 69 20 2b 20 69 |..prime |:= i + i|
|00000350| 20 2b 20 33 3b 09 09 7b | 66 6f 75 6e 64 20 61 20 | + 3;..{|found a |
|00000360| 70 72 69 6d 65 7d 0d 09 | 09 09 09 09 09 09 09 6b |prime}..|.......k|
|00000370| 20 3a 3d 20 69 20 2b 20 | 70 72 69 6d 65 3b 09 09 | := i + |prime;..|
|00000380| 09 7b 66 69 72 73 74 20 | 6d 75 6c 74 69 70 6c 65 |.{first |multiple|
|00000390| 20 74 6f 20 6b 69 6c 6c | 7d 0d 09 09 09 09 09 09 | to kill|}.......|
|000003a0| 09 09 77 68 69 6c 65 20 | 6b 20 3c 3d 20 73 69 7a |..while |k <= siz|
|000003b0| 65 20 64 6f 0d 09 09 09 | 09 09 09 09 09 09 62 65 |e do....|......be|
|000003c0| 67 69 6e 0d 09 09 09 09 | 09 09 09 09 09 09 66 6c |gin.....|......fl|
|000003d0| 61 67 73 5b 6b 5d 20 3a | 3d 20 66 61 6c 73 65 3b |ags[k] :|= false;|
|000003e0| 09 7b 7a 65 72 6f 20 61 | 20 6e 6f 6e 2d 70 72 69 |.{zero a| non-pri|
|000003f0| 6d 65 7d 0d 09 09 09 09 | 09 09 09 09 09 09 6b 20 |me}.....|......k |
|00000400| 3a 3d 20 6b 20 2b 20 70 | 72 69 6d 65 3b 09 09 7b |:= k + p|rime;..{|
|00000410| 6e 65 78 74 20 6d 75 6c | 74 69 70 6c 65 7d 0d 09 |next mul|tiple}..|
|00000420| 09 09 09 09 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00000430| 09 09 09 09 09 63 6f 75 | 6e 74 20 3a 3d 20 63 6f |.....cou|nt := co|
|00000440| 75 6e 74 20 2b 20 31 3b | 09 09 7b 70 72 69 6d 65 |unt + 1;|..{prime|
|00000450| 73 20 66 6f 75 6e 64 7d | 0d 09 09 09 09 09 09 09 |s found}|........|
|00000460| 65 6e 64 3b 0d 09 09 09 | 09 65 6e 64 3b 0d 09 09 |end;....|.end;...|
|00000470| 65 6e 64 3b 0d 0d 09 62 | 65 67 69 6e 0d 7b 20 20 |end;...b|egin.{  |
|00000480| 20 20 53 68 6f 77 54 65 | 78 74 3b 09 09 7d 0d 09 |  ShowTe|xt;..}..|
|00000490| 09 65 6c 61 70 73 65 64 | 54 69 6d 65 20 3a 3d 20 |.elapsed|Time := |
|000004a0| 54 69 63 6b 43 6f 75 6e | 74 3b 0d 09 09 70 72 69 |TickCoun|t;...pri|
|000004b0| 6d 65 3b 0d 09 09 65 6c | 61 70 73 65 64 54 69 6d |me;...el|apsedTim|
|000004c0| 65 20 3a 3d 20 54 69 63 | 6b 43 6f 75 6e 74 20 2d |e := Tic|kCount -|
|000004d0| 20 65 6c 61 70 73 65 64 | 54 69 6d 65 3b 0d 09 09 | elapsed|Time;...|
|000004e0| 64 6f 53 69 65 76 65 20 | 3a 3d 20 65 6c 61 70 73 |doSieve |:= elaps|
|000004f0| 65 64 54 69 6d 65 3b 0d | 09 65 6e 64 3b 0d 0d 65 |edTime;.|.end;..e|
|00000500| 6e 64 2e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |nd......|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 03 88 | 00 00 02 88 00 00 00 6b |........|.......k|
|00000590| 0a 74 77 f3 00 00 02 00 | 00 00 08 00 00 0b 00 00 |.tw.....|........|
|000005a0| 02 70 5f 2d 03 4d 50 57 | 00 00 00 00 00 00 00 00 |.p_-.MPW|........|
|000005b0| 07 53 69 65 76 65 2e 70 | 02 00 00 00 54 45 58 54 |.Sieve.p|....TEXT|
|000005c0| 50 4a 4d 4d 00 00 00 00 | 00 80 00 00 00 00 06 01 |PJMM....|........|
|000005d0| 00 00 54 45 58 54 50 4a | 4d 4d 00 00 00 00 00 80 |..TEXTPJ|MM......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 05 fd 9f d2 60 2f 00 00 | 04 83 00 00 03 f3 00 00 |....`/..|........|
|00000600| 00 00 00 01 e0 00 00 00 | 00 f0 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 01 e0 00 00 f0 | 00 f0 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 ea 0f 0f 0f 01 | 00 00 00 00 00 03 84 0e |........|........|
|00000690| 9f e2 b4 54 00 08 8e a6 | 00 08 90 90 00 00 00 00 |...T....|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 08 90 00 00 00 05 53 |........|.......S|
|000006b0| 49 45 56 45 54 00 05 49 | 4e 50 55 54 07 23 55 46 |IEVET..I|NPUT.#UF|
|000006c0| 55 4e 43 23 07 23 55 50 | 52 4f 43 23 08 23 00 21 |UNC#.#UP|ROC#.#.!|
|000006d0| 00 80 00 03 83 aa 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 ca 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 05 53 49 45 56 45 00 05 |........|.SIEVE..|
|000007e0| 00 00 00 00 00 00 00 00 | 00 05 00 01 00 00 00 00 |........|........|
|000007f0| 00 00 07 5f 5f 53 49 45 | 56 45 00 09 00 00 00 00 |...__SIE|VE......|
|00000800| 00 00 00 00 00 06 00 ff | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 04 4d 61 69 6e 00 | 00 09 00 00 00 00 00 00 |...Main.|........|
|00000820| 00 00 00 01 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 06 5f 53 49 45 56 45 00 | 00 09 00 00 00 00 00 00 |._SIEVE.|........|
|00000840| 00 00 00 00 00 01 00 00 | 00 00 00 08 00 00 00 00 |........|........|
|00000850| 07 44 4f 53 49 45 56 45 | 00 0b 00 00 00 00 00 08 |.DOSIEVE|........|
|00000860| 6c ea 00 04 00 01 00 00 | 00 00 00 08 00 00 00 00 |l.......|........|
|00000870| 00 4a 0f 0f 0f 01 00 00 | 00 00 00 00 00 00 00 00 |.J......|........|
|00000880| 00 00 00 08 6b 62 00 08 | 7b 9a 00 04 53 28 00 04 |....kb..|{...S(..|
|00000890| 63 60 00 04 18 3a 00 00 | 00 00 00 00 0a 50 41 53 |c`...:..|.....PAS|
|000008a0| 3f 53 59 53 54 45 4d 00 | 4e 56 ff fa 48 e7 01 08 |?SYSTEM.|NV..H...|
|000008b0| 42 67 48 6d f6 c8 a9 97 | 3e 1f 70 ff 00 00 00 48 |BgHm....|>.p....H|
|000008c0| 00 09 4d 6f 6e 61 63 6f | 00 65 64 75 72 65 20 53 |..Monaco|.edure S|
|000008d0| 69 65 76 65 3b 0d 0d 7b | 24 49 46 43 20 55 4e 44 |ieve;..{|$IFC UND|
|000008e0| 45 46 00 06 00 03 00 c9 | 00 08 01 4e 01 f8 00 c9 |EF......|...N....|
|000008f0| 00 08 01 4e 01 f8 9f e2 | b4 57 00 00 00 20 00 00 |...N....|.W... ..|
|00000900| 00 20 00 00 03 1a 01 00 | 00 00 01 00 00 00 03 88 |. ......|........|
|00000910| 00 00 02 88 00 00 00 6b | 00 02 83 7c 03 ae 00 00 |.......k|...|....|
|00000920| 00 1c 00 5a 00 02 55 53 | 59 4d 00 00 00 1a 55 53 |...Z..US|YM....US|
|00000930| 45 53 00 00 00 26 4d 50 | 53 52 00 00 00 32 00 00 |ES...&MP|SR...2..|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 06 00 00 |........|........|
|00000950| 01 ee 00 00 00 00 03 ed | ff ff 00 00 02 3c 00 03 |........|.....<..|
|00000960| 85 bc 05 53 49 45 56 45 | 0a 50 41 53 3f 53 59 53 |...SIEVE|.PAS?SYS|
|00000970| 54 45 4d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |TEM.....|........|
+--------+-------------------------+-------------------------+--------+--------+